home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
cmpnew
/
cmpflet.data
< prev
next >
Wrap
Text File
|
1987-01-17
|
3KB
|
124 lines
#(
#!
(lisp::in-package 'user::compiler)
lisp::flet
compiler::c1flet
compiler::c1special
compiler::c2flet
compiler::c2
lisp::labels
compiler::c1labels
compiler::c2labels
lisp::macrolet
compiler::c1macrolet
compiler::call-local
compiler::c2call-local
compiler::fun
(lisp::defstruct compiler::fun compiler::name compiler::ref compiler::ref-ccb lisp::cfun compiler::level)
system::defstruct-form
system::is-a-structure
((compiler::name lisp::nil lisp::nil lisp::nil 0) (compiler::ref lisp::nil lisp::nil lisp::nil 1) (compiler::ref-ccb lisp::nil lisp::nil lisp::nil 2) (lisp::cfun lisp::nil lisp::nil lisp::nil 3) (compiler::level lisp::nil lisp::nil lisp::nil 4))
system::structure-slot-descriptions
system::structure-include
system::structure-print-function
system::structure-type
system::structure-named
compiler::fun-name
(compiler::fun . 0)
system::structure-access
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::fun 0 system::v))
system::setf-lambda
system::setf-update-fn
system::setf-method
system::setf-documentation
compiler::fun-ref
(compiler::fun . 1)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::fun 1 system::v))
compiler::fun-ref-ccb
(compiler::fun . 2)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::fun 2 system::v))
compiler::fun-cfun
(compiler::fun . 3)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::fun 3 system::v))
compiler::fun-level
(compiler::fun . 4)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::fun 4 system::v))
5
system::structure-offset
(compiler::make-fun)
system::structure-constructors
system::structure-documentation
compiler::*funs*
1
0
"The function definition ~s is illegal."
:name
:ref
:ref-ccb
compiler::*vars*
compiler::cb
compiler::*blocks*
compiler::*tags*
compiler::lb
compiler::*next-cfun*
compiler::*vs*
compiler::*clink*
compiler::*ccb-vs*
compiler::*level*
compiler::*local-funs*
compiler::closure
compiler::*closures*
compiler::*compiler-output1*
"The local function definition ~s is illegal."
"The function ~s was already defined."
"The macro definition ~s is illegal."
compiler::*info*
compiler::*do-tail-recursion*
compiler::*tail-recursion-info*
compiler::*exit*
lisp::return
compiler::*value-to-go*
compiler::trash
compiler::*last-label*
compiler::*unwind-exit*
compiler::tail-recursion-mark
"Tail-recursive call of ~s was replaced by iteration."
compiler::*base-used*
compiler::fun-val
compiler::make-fun
compiler::copy-fun
compiler::fun-p
compiler::c1local-fun
compiler::sch-local-fun
compiler::c1local-closure
:cfun
:level
system::copy-structure
compiler::too-few-args
compiler::cmperr
compiler::c1body
compiler::c1add-globals
compiler::check-vdecl
compiler::c1decl-body
compiler::copy-info
compiler::c1lambda-expr
compiler::add-info
compiler::vs-push
compiler::wt-vs
compiler::wt1
compiler::wt-clink
compiler::clink
compiler::ccb-vs-push
compiler::c2expr
compiler::wt-vs*
system::defmacro*
compiler::push-args
compiler::wt-ccb-vs
compiler::tail-recursion-possible
compiler::c2psetq
compiler::unwind-no-exit
compiler::cmpnote
compiler::unwind-exit
)